home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh21b.d64
/
mprg im basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
51 lines
10 GOSUB540:PRINT" ES WERDEN PROGRAMME IN MASCHINENSPRACHE MIT BIS ZU";
20 PRINT" 249 BYTES IN BASIC-ZEILEN VERPACKT UND AUTOMATISCH AUF DISKETTE ";
30 PRINT" GESPEICHERT.",,," IHR START LIEGT JEWEILS BEI [129]SYS2054[154]. "
40 PRINT" BITTE [159]SHIFT[154] DRUECKEN.":WAIT653,1
100 GOSUB540:PRINT,"MAXIMAL 249 ZEICHEN"SPC(22)"START MIT SYS2054":OPEN2,8,15
110 PRINT" IST DAS PRG AUF DISKETTE (J/N)?":GOSUB500:IFA$="N"THEN520
120 INPUT" NAME DES PROGRAMMS";NA$:OPEN1,8,8,NA$+",P,R":GOSUB560
130 IFA=62THENPOKE198,0:WAIT198,1:GOSUB590:GOSUB590:CLOSE1:GOTO120
140 PRINT:PRINT:IFRIGHT$(NA$,1)="*"THENA=LEN(NA$)-1:NA$=LEFT$(NA$,A)
150 INPUT"[145] BASIC-ZEILENNUMMER [157][157][157][157]";ZN$:IFASC(ZN$)>57ORASC(ZN$)<48THEN150
160 ZN=VAL(ZN$):IFZN<100THEN180
170 PRINT"[145] NICHT GROESSER ALS 99![154] ":POKE198,0:WAIT198,1:GOTO150
180 SV$=LEFT$((ZN$+" "+NA$),16)
190 N1=2054:N2=2302:POKE2049,0:POKE2050,9:POKE2051,ZN:POKE2053,143
200 GET#1,A$:GET#1,A$:PRINT"[159] LOADING "NA$"[154]"
210 FORI=N1TON2:GET#1,A$:A=ASC(A$+CHR$(0)):POKEI,A:IFA=0THENI=I-1:GOTO240
220 IFSTTHEN240
230 NEXT:PRINT" PROGRAMM ZU LANG![154]":POKE198,0:WAIT198,1:A$="J":GOTO410
240 BZ=I:CLOSE1:PRINT" SPEICHERN AUF DISKETTE ",," ALS[159] "SV$"[154] (J/N)?"
260 GOSUB500:PRINT:IFA$="J"THENPRINT"":GOTO290
270 POKE19,64:INPUT" NEUER PROGRAMMNAME: ";A$:POKE19,0:SV$=LEFT$(A$,16):PRINT"
290 [153]" DISKETTE EINGELEGEN UND OPENSHIFTCONT.":[146]653,1:[141]590
300 SW$[178]SV$[170][199](34)[170]",8:"[170][199](143)
310 NV[178][195](SW$):[129]I[178]1[164]NV:[151]3371[170]I,[198]([202](SW$,I,1)):[130]
320 A[178]BZ[170]2:[151]2049,A[175]255:[151]2050,A[173]256:[151]251,(A[170]2)[175]255:[151]252,(A[170]2)[173]256
330 [151]A[171]1,0:[151]A,0:[151]A[170]1,0:[151]45,[194](251):[151]46,[194](252)
340 [148]"************************
350 POKE45,186:POKE46,16:POKE2049,0:POKE2050,9:POKE2304,67:POKE2305,9:GOSUB560
360 ONA+1GOTO390:IFA=33THENPOKE198,0:WAIT198,1:POKE198,0:GOTO385
370 PRINT" [129]UEBERSCHREIBEN?[154] (J/N)[154]":GOSUB500:IFA$="N"THEN385
380 SW$="@0:"+SW$:GOSUB590:GOTO310
385 GOSUB590:PRINT"[145][145][145]":GOTO270
390 GOSUB590:PRINT" NOCHMAL SPEICHERN (J/N)?":GOSUB500:IFA$="J"THEN290
400 PRINT"[159] WEITERMACHEN (J/N)?[154]":GOSUB500
410 GOSUB540:FORI=N1TON2:POKEI,42:NEXT:FORI=1TO24:POKE3371+I,42:NEXT
420 POKE2051,10:POKE2375,143
430 CLOSE1:CLOSE2:POKE198,0:IFA$="J"THENRUN
440 PRINT" DIE NEUE ZEILE LADEN? (J/N)":GOSUB500:IFA$="N"THENEND
450 POKE631,147:POKE632,76:POKE633,207:POKE634,83:POKE635,86:POKE636,36
460 POKE637,44:POKE638,56:POKE639,13:POKE198,9:END
500 GETA$:IFA$="J"ORA$="N"THENGOSUB590:RETURN
510 GOTO500
520 PRINT"[147] DAS MASCHINENPROGRAMM BITTE",," ERST AUF DISKETTE BRINGEN![154]"
530 CLOSE2:END
540 PRINTCHR$(142);"[147][159] BASIC-ZEILE MIT MASCHINENPROGRAMM[154]"
550 PRINTTAB(7)"(C) 1986 BY AXEL HOHLFELD":RETURN
560 INPUT#2,A,A$:PRINT"[129] STATUS: "A$"[154]"
570 IFA=0ORA=33ORA=62ORA=63THENRETURN
580 POKE198,0:WAIT198,1:A$="J":GOTO410
590 PRINT"[145] [145]":RETURN